home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH1 / SRC / RIGHT.FRM < prev    next >
Text File  |  1996-01-04  |  2KB  |  68 lines
  1. VERSION 4.00
  2. Begin VB.Form RightForm 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Right"
  7.    ClientHeight    =   1185
  8.    ClientLeft      =   4590
  9.    ClientTop       =   2325
  10.    ClientWidth     =   1695
  11.    Height          =   1875
  12.    Left            =   4530
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1185
  17.    ScaleWidth      =   1695
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1695
  20.    Width           =   1815
  21.    Begin VB.Menu mnuFile 
  22.       Caption         =   "&File"
  23.       Begin VB.Menu mnuFileExit 
  24.          Caption         =   "E&xit"
  25.       End
  26.    End
  27. End
  28. Attribute VB_Name = "RightForm"
  29. Attribute VB_Creatable = False
  30. Attribute VB_Exposed = False
  31. Option Explicit
  32.  
  33.  
  34.  
  35. ' ***********************************************
  36. ' Make the form's interior area 3 inches square.
  37. ' ***********************************************
  38. Private Sub Form_Load()
  39. Dim extra_wid As Single
  40. Dim extra_hgt As Single
  41. Dim i As Single
  42.  
  43.     extra_wid = Width - ScaleWidth
  44.     extra_hgt = Height - ScaleHeight
  45.     Me.Width = 1440 + extra_wid
  46.     Me.Height = 1440 + extra_hgt
  47.     
  48.     Scale (0, 100)-(100, 0)
  49.  
  50.     For i = 10 To 90 Step 10
  51.         Line (0, i)-(100, i)
  52.         Line (i, 0)-(i, 100)
  53.     Next i
  54. End Sub
  55.  
  56.  
  57. Private Sub Form_Unload(Cancel As Integer)
  58.     If Not WrongForm Is Nothing Then _
  59.         Unload WrongForm
  60. End Sub
  61.  
  62.  
  63. Private Sub mnuFileExit_Click()
  64.     Unload Me
  65. End Sub
  66.  
  67.  
  68.